10 PRINT "USE OF TRAPEZOIDAL RULE TO INTEGRATE G(Y) FROM 1 TO 2"
20 DEFINT I-J, N: DEF FNG (YY) = 3.5 * YY + LOG(YY) + 40! * SIN(1.57 * YY)
30 N = 20: Y0 = 1!: Y1 = 2!: H = (Y1 - Y0) / N
40 V = FNG(Y0) + FNG(Y1): FOR I = 1 TO N STEP 2: V = V + 4! * FNG(Y0 + I * H): NEXT I
50 N1 = N - 1: FOR I = 2 TO N1 STEP 2: V = V + 2! * FNG(Y0 + I * H): NEXT I
60 V = V * H / 3!: PRINT " V="; V